program pr;
var 
x,y,z: real;

begin
while (x>0) do
begin
x:=5;
y:=6;
z:=7;
End.